home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Tutorial Material / Basic Tutorial / mctest4 < prev    next >
Lisp/Scheme  |  1998-10-26  |  593b  |  30 lines
  1. ; tutorial example 4 -  mctest4
  2.  
  3. (defsym a '(b c a))
  4. (defsym b '(f e))
  5. (defsym c '(b a))
  6. (defsym d '(a g))
  7.  
  8. (def-symbol
  9.   test1 (gen-notrans a 4)
  10.   test2 (gen-notrans d 4)
  11.   test3 (gen-notrans c 4)
  12.   test4 (gen-notrans b 4)
  13. )
  14.  
  15. (def-length
  16.   default '1/16
  17. )
  18.  
  19. (setq tonals (activate-tonality (whole-tone c 5) (chromatic c 6)))
  20.  
  21. (compile-song-p "ccl;output:" 1/4 "part4"
  22.  
  23. ;                  |---|---|---|---|
  24. changes tonals    "    .  .   . .  "
  25. test1   changes   "-   -- -- -- - -"
  26. test2   changes   " -  -- -  - - - "
  27. test3   changes   "  - --  -- - - -"
  28. test4   changes   "   ---- - --- --"
  29. )
  30.